﻿Public Class TraitementsViewer

    Sub New()

        ' Cet appel est requis par le concepteur.
        InitializeComponent()

        'Me.DataContext = GraphBuilder.BuildGraphs(0)
    End Sub

    Public Sub ItemPresenter_SizeChanged(ByVal sender As Object, ByVal e As SizeChangedEventArgs)
        Dim Node As Node = DirectCast(DirectCast(sender, ContentPresenter).DataContext, Node)
        Node.NodeHeight = DirectCast(sender, ContentPresenter).ActualHeight
        Node.NodeWidth = DirectCast(sender, ContentPresenter).ActualWidth
    End Sub

End Class
